home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Merciful 2
/
Merciful - Disc 2.iso
/
software
/
h
/
highspeedpascalv2.0b.dms
/
highspeedpascalv2.0b.adf
/
Interface
/
Serial.pas
< prev
next >
Wrap
Pascal/Delphi Source File
|
1992-01-16
|
2KB
|
79 lines
Unit Serial;
Interface
Uses Exec;
Type
tIOTArray = Record
TermArray0: LongInt;
TermArray1: LongInt;
End;
tIOExtSer = Record
IOSer: tIOStdReq;
io_CtlChar: LongInt;
io_RBufLen: LongInt;
io_ExtFlags: LongInt;
io_Baud: LongInt;
io_BrkTime: LongInt;
io_TermArray: tIOTArray;
io_ReadLen: ShortInt;
io_WriteLen: ShortInt;
io_StopBits: ShortInt;
io_SerFlags: ShortInt;
io_Status: Integer;
End;
Const
SERF_EOFMODE = $40;
SerErr_NoDSR = $D;
IO_STATB_XOFFREAD = $C;
SerErr_ParityErr = $9;
IO_STATF_XOFFREAD = $1000;
SDCMD_BREAK = $A;
SerErr_BufOverflow = $C;
IO_STATB_XOFFWRITE = $B;
IO_STATF_XOFFWRITE = $800;
SERB_SHARED = $5;
SERF_SHARED = $20;
SERIALNAME = 'serial.device';
SERB_RAD_BOOGIE = $4;
SDCMD_SETPARAMS = $B;
SERF_RAD_BOOGIE = $10;
SERB_PARTY_ON = $0;
SER_DEFAULT_CTLCHAR = $11130000;
SERB_XDISABLED = $7;
SERF_PARTY_ON = $1;
SERF_XDISABLED = $80;
IO_STATB_READBREAK = $A;
SERB_7WIRE = $2;
SDCMD_QUERY = $9;
IO_STATF_READBREAK = $400;
SERF_7WIRE = $4;
SerErr_DetectedBreak = $F;
SerErr_BufErr = $4;
SERB_QUEUEDBRK = $3;
SerErr_LineErr = $6;
IO_STATB_WROTEBREAK = $9;
SERF_QUEUEDBRK = $8;
IO_STATF_WROTEBREAK = $200;
IO_STATB_OVERRUN = $8;
SEXTB_MSPON = $1;
SerErr_InvParam = $5;
IO_STATF_OVERRUN = $100;
SEXTB_MARK = $0;
SEXTF_MSPON = $2;
SEXTF_MARK = $1;
SerErr_DevBusy = $1;
SerErr_TimerErr = $B;
SERB_PARTY_ODD = $1;
SERB_EOFMODE = $6;
SERF_PARTY_ODD = $2;
End.